home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / C / HELPD.ZIP / README.PRO < prev    next >
Encoding:
Text File  |  1994-04-12  |  1.5 KB  |  73 lines
  1. nobreak 
  2. /*   
  3.    program readme...
  4.    by dan dalal
  5.    05/24/91
  6.    modified 04/12/94
  7.    
  8.    please make any changes as you see fit !
  9.    good luck 
  10.    
  11.    dan dalal
  12. */
  13. code=4000
  14.  
  15. domains
  16.  
  17. file = temm
  18.  
  19. predicates
  20.  opening
  21.  
  22. goal
  23.  
  24. existfile("HELPD.EXE"),
  25. existfile("README.TXT"),
  26. opening,exit ;
  27.  
  28.  
  29. existfile("HELPD.EXE"),
  30. makewindow(1,7,7," ERROR - README.TXT NOT FOUND ",5,10,3,60),
  31. gotowindow(1),
  32. write("Press any key to exit."),readchar(_),
  33. removewindow,exit ;
  34.  
  35. existfile("README.TXT"),
  36. makewindow(1,7,7,"ERROR - HELPD.EXE NOT FOUND ",5,10,3,60),
  37. gotowindow(1),
  38. write("Press any key to exit."),readchar(_),
  39. removewindow,exit ;
  40.  
  41. makewindow(1,7,7,"ERROR - FILES NEEDED WERE NOT FOUND ",5,10,3,60),
  42. gotowindow(1),
  43. write("Press any key to exit."),readchar(_),
  44. removewindow,exit.
  45.  
  46.  
  47. clauses
  48.  
  49.  
  50. opening:-
  51.     makewindow(2,7,7,"< Use the Arrow keys to move about ; ESC to EXIT >",0,0,25,80),
  52.     file_str("README.TXT",TXT),
  53.     display(TXT),
  54.     clearwindow,removewindow,
  55.     makewindow(3,7,7,"< Now creating PHONE.LST and PROBLEM.LOG FILES >",12,5,5,75),
  56.     write("Please wait..."),nl,
  57.     openwrite(temm,"PROBLEM.LOG"),
  58.     closefile(temm),gotowindow(3),
  59.     write("PROBLEM.LOG created..."),nl,
  60.     openwrite(temm,"PHONE.LST"),
  61.     closefile(temm),
  62.     openwrite(temm,"PHONE.LST"),
  63.     writedevice(temm),
  64.     nl,
  65.     write("Name : Dalal Publishing Co."),nl,
  66.     write("Phone : (408) 225 - 6157 (9:00am to 5:00pm, PST)"),nl,
  67.     closefile(temm),
  68.     gotowindow(3),
  69.     write("PHONE.LST created.."),nl,
  70.     write("Press any key to exit."),readchar(_),!.
  71.         
  72.     
  73.